home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO59.MNU < prev    next >
Text File  |  1986-09-23  |  411b  |  13 lines
  1. [CIRTOCIR]^C^C+
  2. (Setq P1 (Osnap (Setq P2 (Osnap (Getpoint +
  3. "Touch circle: ")"Nea"))"Cen"));\+
  4. (Setq P3 (Getpoint +
  5. "Inside or Outside (Pick point): "));\+
  6. (Setq CR (Getdist "Circle radius: "));\+
  7. (Setq AG (Getangle "Center to center angle: "));\+
  8. (Setq D1 (Distance P1 P2));+
  9. (Setq D2 (Distance P1 P3));+
  10. (Setq D3 (If (< D1 D2) (+ D1 CR) (- D1 CR)));+
  11. (Setq P4 (Polar P1 AG D3));+
  12. Circle;!P4;!CR;
  13.